home *** CD-ROM | disk | FTP | other *** search
/ PC World 2008 April / PCWorld_2008-04_cd.bin / temacd / pspad / pspad453inst_cz(2).exe / {app} / Context / CAL.DEF < prev    next >
Encoding:
Text File  |  2003-08-07  |  4.0 KB  |  105 lines
  1. ; pspad code template for cal
  2. ; created by pspad   12.07.2002  09:10
  3. ; author:  martinpa
  4. [Macro definition]
  5. %recordset%=@E Zadej recodset
  6. %recordset1%=@E Zadej recodset
  7. %prom%=@E Hodnota
  8. %prom1%=@E Hodnota
  9. %prom2%=@E Hodnota
  10. %dialog%=@E Dialog
  11. %ComboFind%=@C Jak² zaznam:,,-,-;+,'
  12. ;--------------------------------------------------------------------------------
  13. [for .. to .. do | cyklus s pevnym poctem kroku]
  14. for %prom% := %prom1% to %prom2% do
  15.    begin
  16.     |
  17.    end;
  18. ;--------------------------------------------------------------------------------
  19. [setrange | setrange(co, od, do) ]
  20. %recordset%.setrange(%recordset%."|" , , );
  21. ;--------------------------------------------------------------------------------
  22. [get | get(promenna)]
  23. if %recordset%.get(|) then
  24. ;--------------------------------------------------------------------------------
  25. [begin | (begin ... end) ]
  26. begin
  27.  º|
  28. end
  29. ;--------------------------------------------------------------------------------
  30. [repeat | (prochazeni recordsetu)]
  31. repeat
  32.  |
  33. until %recordset%.next=0;
  34. ;--------------------------------------------------------------------------------
  35. [if | (podminka)]
  36. if º| then
  37. ;--------------------------------------------------------------------------------
  38. [calcfields | calcfields(pole, .., ..)]
  39. %recordset%.calcfields (|);
  40. ;--------------------------------------------------------------------------------
  41. [message | message(text)]
  42. message(º|);
  43. ;--------------------------------------
  44. [message2 | message(format(integer))]
  45. message(format(º|));
  46. ;--------------------------------------------------------------------------------
  47. [confirm | confirm(text)]
  48. if %prom% confirm(|) then
  49. ;--------------------------------------------------------------------------------
  50. [setfilter | setfilter(co,hodnota)]
  51. %recordset%.setfilter(| , ) ;
  52. ;--------------------------------------------------------------------------------
  53. [create | create(objekt)]
  54. create (º|);
  55. ;--------------------------------------------------------------------------------
  56. [clear | clear(objekt)]
  57. clear (º|) ;
  58. ;--------------------------------------------------------------------------------
  59. [createtotals | createtotals(pole)]
  60. Currreport.createtotals(º|)
  61. ;--------------------------------------------------------------------------------
  62. [testfield | testfield(pole,hodnota)]
  63. %recordset%.testfield(|)
  64. ;--------------------------------------------------------------------------------
  65. [round | round(pole,zpusob)]
  66. round(º| , )
  67. ;--------------------------------------------------------------------------------
  68. [format | format(promenna)]
  69. format(º|)
  70. ;--------------------------------------------------------------------------------
  71. [count | recordset.count]
  72. %recordset%.count
  73. ;--------------------------------------------------------------------------------
  74. [setcurrentkey | recordset.setcurrentkey]
  75. %recordset%.setcurrentkey(|);
  76. ;--------------------------------------------------------------------------------
  77. [find | find('-')]
  78. if %recordset%.find(%ComboFind%) then
  79.    |
  80. ;--------------------------------------------------------------------------------
  81. [reset | recordset.reset]
  82. %recordset%.reset;
  83.   |
  84. ;--------------------------------------------------------------------------------
  85. [d.Open | okno.open('text #1#######', promenna]
  86. %dialog%.open(|)
  87. ;--------------------------------------------------------------------------------
  88. [d.Update | okno.open(1, promenna]
  89. %dialog%|.update()
  90. ;--------------------------------------------------------------------------------
  91. [d.Close | okno.Close
  92. %dialog%|.Close
  93. ;--------------------------------------------------------------------------------
  94. [DATE2DMY | Date2DMY(datum)]
  95. date2SMY(º|)
  96. ;--------------------------------------------------------------------------------
  97. [Commit| Commit]
  98. Commit
  99. ;-------------------------------------------------------------------------------
  100. [error| error()]
  101. error(º|);
  102. ;
  103. [TRANSFERFIELDS | rsDestination.TRANSFERFIELDS(rsSource)]
  104. %recordset%.TRANSFERFIELDS(%recordset1%)
  105.